Nuprl Lemma : fpf-join-empty
11,40
postcript
pdf
A
:Type,
B
:(
A
Type),
f
:fpf(
A
;
a
.
B
(
a
)),
eq
:EqDecider(
A
). fpf-join(
eq
; fpf-empty;
f
) =
f
latex
Definitions
x
:
A
.
B
(
x
)
,
fpf(
A
;
a
.
B
(
a
))
,
x
(
s
)
,
fpf-join(
eq
;
f
;
g
)
,
fpf-empty
,
append(
as
;
bs
)
,
t
.1
,
b
,
fpf-dom(
eq
;
x
;
f
)
,
fpf-cap(
f
;
eq
;
x
;
z
)
,
fpf-ap(
f
;
eq
;
x
)
,
Y
,
deq-member(
eq
;
x
;
L
)
,
if
b
then
t
else
f
fi
,
t
.2
,
reduce(
f
;
k
;
as
)
,
ff
,
t
T
,
x
.
t
(
x
)
,
filter(
P
;
l
)
,
tt
,
P
Q
,
prop{i:l}
Lemmas
l
member
wf
,
deq
wf
,
fpf
wf
origin
A:Type, B:(A
Type), f:fpf(A; a.B(a)), eq:EqDecider(A). fpf-join(eq; fpf-empty; f) = f A:Type, B:(AType), f:fpf(A; a.B(a)), eq:EqDecider(A). fpf-join(eq; fpf-empty; f) = f x:A. B(x)
b
T
x. t(x)
Q